home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / FAX_SSTV / VESTER_M / PICKFILE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-05-12  |  823 b   |  24 lines
  1. 5  CLEAR,32768:KEY OFF:CLS
  2. 10                        'SYSTEM CONFIGURATION
  3. 20       'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  4. 30  P=1             'P=0 manual path selection---P=1 prestored path selection
  5. 40  PA$="c:\gif\"   'default path for the gif files
  6. 50       '--------------------------------------------------------
  7. 55  KEY 10,"SYSTEM"+CHR$(13):KEY 5,"LIST "+CHR$(13):KEY 4,"SAVE "+CHR$(34)+"PICKFILE"
  8. 60  DEF SEG=&H4F00
  9. 70  BLOAD"pickfile.asm",&H100
  10. 75  IF P=1 THEN GIF$=PA$:GOTO 100
  11. 80  PRINT:PRINT:PRINT:INPUT"     What PATH for the Files (Default=PA$)";GIF$
  12. 90  IF GIF$="" THEN GIF$=PA$
  13. 100  CLS:FILES GIF$+"*.*"
  14. 110  PRINT"                      MOVE CURSOR TO FILE"
  15. 120  K=&H100:CALL K
  16. 130  FOR Y=&H190 TO &H19C
  17. 140  Z=PEEK(Y)
  18. 150  IF Z=46 OR Z=32 THEN GOTO 180
  19. 160  Z$=CHR$(Z)
  20. 170  PIX$=PIX$+Z$:NEXT Y
  21. 180  SHELL "tgif "+GIF$+PIX$+".gif"
  22. 190  SYSTEM
  23. 200   'SAVE as "PICKFILE after modifying
  24.